﻿Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks

Namespace vindinium
    Friend Class Client
        ' Conversion by SarahC - http://untamed.co.uk
        '''        
        '''         * Launch client.
        '''         * @param args args[0] Private key
        '''         * @param args args[1] [training|arena]
        '''         * @param args args[2] number of turns
        '''         * @param args args[3] HTTP URL of Vindinium server (optional)
        '''         
        Shared Sub Main(ByVal args() As String)
            Dim serverURL As String = If(args.Length = 4, args(3), "http://vindinium.org")

            'create the server stuff, when not in training mode, it doesnt matter
            'what you use as the number of turns
            Dim serverStuff As New ServerStuff(args(0), args(1) <> "arena", UInteger.Parse(args(2)), serverURL, Nothing)

            'create the random bot, replace this with your own bot
            Dim bot As New RandomBot(serverStuff)

            'now kick it all off by running the bot.
            bot.run()

            Console.Out.WriteLine("done")

            Console.Read()
        End Sub
    End Class
End Namespace
